@̃t@C̓éACZXL[wɍseɂȂ܂B

PDTv
@TvGNZubNAAhCĂяoR[hIWĩGNZubNɃRs[邱ƂɂAGPIBʐMsGNZubN쐬ł悤ɂȂ܂B
iGNZVBAɂăvO쐬łXLKvłj

QDAhCĂяoW[̃Rs[
@GNZVisualBasicGfB^[𗧂グA"GPIB sample.xls"̕WW["TinyGPIB"AIWĩGNZubNɃRs[ĂB
@WW["TinyGPIBhɂ͈ȉPS̏łTu[`LڂĂ܂B
i炳ɃAhC̃Tu[`Ăяo܂j

	PjGPIB̃CjVCY
	    Function GpInit(BoardID As Long, DeviceID_01 Long, Optional DeviceID_02 Long _
			, Optional DeviceID_03 Long, Optional DeviceID_04 Long, Optional DeviceID_05 Long _
			, Optional DeviceID_06 Long, Optional DeviceID_07 Long, Optional DeviceID_08 Long _
			, Optional DeviceID_09 Long, Optional DeviceID_10 Long, Optional DeviceID_11 Long _
			, Optional DeviceID_12 Long, Optional DeviceID_13 Long, Optional DeviceID_14 Long _
			, Optional DeviceID_15 Long) As Long

		BoardID 	:p\RGPIBRg[GPIB IDwiCӂɌ߂j
		DeviceID01`15	:DiviceID** ʐMs@GPIB IDBgp鐔͂̕Bő15B
		߂l		:0=OK,-2=GPIBRg[Ȃ,-1=VXeG[

	Qjw@֕̑M
	    GpWrite(DeviceID As Long, SendStr As String) As Long

    		DeviceID	:XiGPIB ID
		SendStr		:M镶
		߂l		:0=OK,-1=VXeG[,-2=GPIBRg[ĂȂ

	Rjw@킩̎̕M
	    GpRead(DeviceID As Long, buflen As Long, ReciveStr As String) As Long
		
		DeviceID	:g[JGPIB ID
		BufLen		:M̃obt@iMȏw肷j
		ReciveStr	:Mf[^i߂lpϐjB
				@Mf[^Ƀ^[~l[VR[h͊܂܂ȂB
				@f[^̃Xy[Xchr(32)͍폜B
		߂l		:0=OK,-1=VXeG[,-2=GPIBRg[ĂȂ

	Sjw@փoCgf[^̑M
	    GpBWrite(DeviceID As Long, DataCount As Long, Bdata() As Byte) As Long
		
		DeviceID	:XiGPIB ID
		DataCount	:Mf[^
		Bdata()		:MoCgf[^
		߂l		:0=OK,-1=VXeG[,-2=GPIBRg[ĂȂ

	Tjw@킩oCgf[^̎M
	    GpBRead(DeviceID As Long, DataCount As Long, Bdata() As Byte) As Long

		DeviceID	:g[JGPIB ID
		DataCount	:Mf[^pobt@iz̐jBMf[^ȏwBMf[^߂B
		Bdata()		:Mf[^i߂lpϐj
		߂l		:0=OK,-1=VXeG[,-2=GPIBRg[ĂȂ

	Ujw@͑S@[J֐؂ւiRENCFalseɂj
	    GpLocal(DeviceID As Long) As Long
		
		DeviceID	:Ώۋ@GPIB IDB-1RenCFalseiS@[Jjɂ
		߂l		:0=OK,-1=VXeG[,-2=GPIBRg[ĂȂ

	VjRENCAT[g(RENCAT[gĂ΁Ae@փR}h𑗕tɃ[gɂȂ)
	    GpRemote(DeviceID As Long) As Long
		
		DeviceID	:64bitł-1wi-1ȊOłjB32bitł͑Ώۋ@GPIB IDw肷Ǝw@̂݃[gɂł邩B

		߂l		:0=OK,-1=VXeG[,-2=GPIBRg[ĂȂ

		FCjVCYɃf[^̑Msꂽ@́AIɃ[gɂȂ邽߁A
		@@GpRemotoR}hgpKv͂ȂBGpLocalRENCFalseɂꍇ͂̌ł͂ȂB

	WjS@[JbNAEgi}jAŃ[JɂłȂj
	    GpLLO()

		߂l		:0=OK,-1=VXeG[,-2=GPIBRg[ĂȂ

		F[JbNAEg𖳌ɂꍇ́AGpLocalID-1w肷B
			GpLocal -1

	XjEOI̐ݒyу^[~l[VR[h̕ύX
	    GpDelm(WEoiSw As Long, WEosCode As Long, REosCode As Long) As Long

		WEoiSw		:MEOIB256=ύX   0=EoiOFF   1=EoiON
		WEosCode	:MEOSB256=ύX   0=MEOS     1`127:codeLN^[
		REosCode	:MEOSB256=ύX   0=MEOS     1`255:codeLN^[
				@:EOS̏ԂŁAR/Ŵǂ炩256w肷ƁAMɖ̂܂܂Ȃ̂ŒӂB
				@@ꍇ́AM𓯎Ɏw肷邱ƁB
				     EOS𖳌ɕύX́AIɑMEOILɕύXiMEOI͏펞LjB
		߂l		:0=OK,-3=ݒ肪͈͊O,-1=VXeG[,-2=GPIBRg[ĂȂ

	POjʐM^CAEgԂ̕ύX
	      GpTOS(TimeOutSelect As Long) As Long

		TimeOutSelect	:^CAEgԂ̑I
			   		0=  1=1s    2=3s    3=10s   4=30s   5=100s  6=300s  7=1000s
		߂l		:0=OK,-3=ݒ肪͈͊O,-1=VXeG[,-2=GPIBRg[ĂȂ

	PPjw@փgK[R}h𑗐M
	      GpTrg(DeviceID As Long) As Long

		DeviceID	:Ώۋ@GPIB IDB
		߂l		:0=OK,-1=VXeG[,-2=GPIBRg[ĂȂ

	PQjw@͑S@փNAR}h𑗐M
	      GpClr(DeviceID As Long) As Long

		DeviceID	:Ώۋ@GPIB IDB-1̏ꍇ͑S@킪ΏہB
		߂l		:0=OK,-1=VXeG[,-2=GPIBRg[ĂȂ

	PRjiS@ցj}`CEC^[tFCXEbZ[WR[h̑M
	      GpCom(ChrCode As Long) As Long

		ChrCode		:0`127B}`CEC^[tFCXEbZ[W̃R[hԍ
		߂l		:0=OK,-1=VXeG[,̑ -2=GPIBRg[ĂȂ

	PSjXe[^XoCg̎擾
		iw̋@ɑ΂AVA|[{BSRQɂ銄荞݂ɂ͑ΉĂ܂Bj
	      GpSPoll(DeviceID As Long, State As Long) As Long

		DeviceID	:Ώۋ@GPIB ID
		State	  	:Xe[^Xli߂lpϐj
		߂l	 	:0=OK,-1=VXeG[,̑ eGPIBRg[[̃G[R[h
				 -2=GPIBRg[ĂȂ

RDʐM菇

@{IȒʐM菇́AȉƂȂ܂B
@i{Iȃf[^ḾALR}ĥPj`Rjōs܂j

	(1)GPIBRg[̃CjVCY
	@@Rg[GPIB IDCӂɌ߁Agp@GPIB IDԍgGpInitĂяoB
		FGPIB ID=5PGIB ID=9̋@gꍇB15GPIB{[h̔ԍŁAgĂȂԍCӂɌ߂
			GpInit(15, 5, 9)

	(2)w@֕̑M
	@@GPIB IDw肵āAGpWriteɂĕ𑗐M

		FGPIB IDT̋@֕񑗐Msꍇ

			GpWrite(5,"F5")

	(3)Mf[^ꍇAw@킩f[^̎M
	@@GPIB IDw肵āAGpReadɂĕ𑗐M

		FGPIB IDT̋@킩100̕f[^Mꍇ

			dim Recive as string

			GpRead(5,255,Recive)	'bafLen100ȏw肷B̏ꍇ255wB
						'ReciveɎMf[^܂


ȏ
